Top 10k strings from Gerente, El (1984)(DIMensionNEW - Idealogic)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
7 g(y)=g(y)-1 6 l(y)=l(y)-p(y): 6 l(y)=l(y)-o(y): 6 ;"Pulsa ENTER": 6 ;"--------------------------------" 5 ;" BANCO DEL SPECTRUM "; 5 NO TIENES SUFICIENTE DINERO 4 d(y)=d(y)-1 4 ;"NO DISPONES DE SUFICIENTE DINERO"; 4 ;" TECNICO DESPEDIDO "; 3 mpm=mpm+ven: 3 f(y)=f(y)/.8 3 f(y)=f(y)*.6 3 d(y)=d(y)+1 3 c(y)=c(y)-ven: 3 ;"Mes ";x; 3 ;"Anyo ";any; 3 ;"5000 $"; 2 indm+desp>a(y) 2 indm+desp<a(y) 2 g(y)=g(y)-3 2 g(y)=g(y)+1 2 fab>d(y)+e(y)*2 2 e(y)=e(y)-1 2 desp>indm/2 2 a(y)=a(y)-m(y): 2 a(y)=a(y)-indm: 2 a(y)=a(y)-4000 2 a(y)=a(y)-2500 2 a(y)=a(y)-2000 2 a(y)=a(y)-10000 2 a(y)=a(y)-(indm+desp): 2 a(y)=a(y)+5000 2 a(y)=a(y)+10000 2 TIENES YA LA PLAZA CUBIERTA 2 NO TIENES SUFICIENTE MAT. PRIMA 2 NO TIENES SUFICIENTE MAQUINARIA 2 DISPONES DE 1 ""POINT"" PARA PAGAR 2 ;p(y);" $ mensuales"; 2 ;o(y);" $ mensuales"; 2 ;desp;" $"; 2 ;aum;" %"; 2 ;"el gerente": 2 ;"Una firma de la competencia le ofrece un sueldo de ";sub;" $"; 2 ;"UNA ESPERA PARA VER COMO SE DESARROLLAN LOS ACONTECIMIENTOS TAMBIEN PUEDE SER UNA BUENA DECISION": 2 ;"Total a pagar.......... ";indm+desp: 2 ;"Te interesa conservarlo ? (s/n)" 2 ;"Su sueldo para el proximo anyo sera de": 2 ;"Para el proximo anyo, y habiendovalorado su gestion, le aumentasel sueldo en un": 2 ;"Los motivos alegados para el despido son insuficientes, para consumarlo debera anyadir ala indemnizacion la cantidad de"; 2 ;"Esta dispuesto a quedarse si le igualas la cantidad."; 2 ;"Deseas obtenerlo ?"; 2 ;"Decides contratarlo ? (s/n)" 2 ;"AVERIA IMPORTANTE DE UNA MAQUINA"; 2 ;"ATENCION!!! Nota de MAGISTRATURA": 2 ;" NO SE MARCHA ": 2 ;" DECLARACION DE RENTA "; 2 ;" CAPITAL INSUFICIENTE "; 2 ;" A TU PLANTILLA "; 2 ;" ": 2 (k(y)-m(y)/1.1 2 (d(y)+e(y)*2 2 "estas de acuerdo ? (s/n)";S$: 2 NO VAS A PODER AFRONTAR GASTOS 2 NO TIENES DINERO PARA PAGARLE 2 %"'" Al contratarlo, y como pago unico deberas abonar 1 POINT por gastos Seguridad Social."''" De todos modos, asegurate antes de contratarlo de que tu capacidad de produccion es suficiente para que te sea rentable." 2 TU CAPITAL NO CUBRE EL RESTO 2 SE MARCHA 2 NO PUEDES CONTRATARLE SI NO 2 NI LA PRIMERA MENSUALIDAD 2 LA SEGURIDAD SOCIAL 2 1 x>B<Dx88DB~$ 1 ppa=pmp*10 1 pmaq=10000 1 n(y)=n(y)+1 1 mpm=mpm-cm 1 mpm=mpm+c(y): 1 mpm=mpm+b(y): 1 l(y)=l(y)+p(y): 1 l(y)=l(y)+p(y) 1 l(y)=l(y)+o(y): 1 l(y)=l(y)+o(y) 1 l(y)=l(y)+ind: 1 l(y)=l(y)+com: 1 k(y)=k(y)-dev: 1 k(y)=k(y)+5000 1 k(y)=k(y)+10000 1 j(y)=j(y)+1 1 indm=p(y)*j(y): 1 indm=o(y)*i(y): 1 imp=m(y)-a(y): 1 imp=l(y)-a(y): 1 i(y)=i(y)+1 1 hora=hora+1 1 g(y)=g(y)-2 1 fab>posfab 1 fab*cost>a(y) 1 f(y)=f(y)*.8 1 e(y)=e(y)+1 1 cost=f(y)*.25 1 cm*pmp>a(y) 1 c/m 1 c(y)=c(y)-1 1 c(y)=c(y)+fab: 1 c(y)=c(y)+fab 1 b(y)=b(y)-fab: 1 b(y)=b(y)-fab 1 b(y)=b(y)-1 1 b(y)=b(y)+cm 1 a(y)=a(y)-l(y): 1 a(y)=a(y)-l(y) 1 a(y)=a(y)-fab*f(y) 1 a(y)=a(y)-fab*cost: 1 a(y)=a(y)-dev: 1 a(y)=a(y)-cm*pmp: 1 a(y)=a(y)-5000 1 a(y)=a(y)-20000 1 a(y)=a(y)-1000 1 a(y)=a(y)+ven*5000 1 a(y)=a(y)+ppa*ven: 1 a(y)=a(y)+b(y)*100 1 a(y)=a(y)+7500 1 a(y)=a(y)+20000 1 a(y)=a(y)+2000 1 a(y)=a(y)+1000 1 a(y)=a(y)+100 1 a(y)=a(y)+((ppa+(ppa*markt/100 1 a(y)=10000 1 a(y)<20000 1 a(y)<10000 1 a(y)<(d(y)+e(y)*2 1 a(y))+10000 1 ZDD@0DDR|B 1 QUE PENA QUE NO TENGAS MAQUINAS 1 QUE PENA NO TENGAS MATERIA PRIMA 1 QUE NO TIENES 1 PAGA EN POINTS-TUS ""$"" NO LLEGAN 1 PAGA EN ""$""-TUS POINTS NO LLEGAN 1 ORIGINAL TAPE / NOT D.L. 1 NO TIENES PRODUCTO QUE VENDER 1 NO TIENES NINGUNA MAQUINA MANUAL 1 NO TIENES NI DEL UNO NI DEL OTRO 1 NO PUEDES FABRICAR SIN MAQUINAS 1 NO HAY MATERIA PRIMA EN MERCADO 1 NO DISPONES DE SUFICIENTES POINT 1 LA CIA. ARRENDADORA TE LO RETIRA 1 I$="Competicion ": 1 I$=" Empresarial ": 1 I$=" DIMensionNEW": 1 I$=" ************": 1 I$=" $ EL GERENTE $": 1 EL GERENTE 1 DIMensionNew / IDEALOGIC S.A. 1 C/ Valencia, 85 1 ;e(y);" Maquinas automatizadas"; 1 ;d(y);" Maquinas manuales y"; 1 ;d(y);" Maquinas MANUALES": 1 ;d(y)+e(y)*2 1 ;A$(y);'"y considerando que su capacidad de Direccion Empresarial es muy superior a su suerte actual, tiene a bien concederle un credito especial de 10000 $ a fondo perdido, para que pueda reinicializar sus actividades empresariales con toda garantia.": 1 ;A$(y);" ";(a(y))+(b(y)*100 1 ;'';A$(y);''"Saldo Actual ";a(y);" "'"Valor materia prima ";b(y)*100 1 ;"y ";e(y);" maquinas automaticas" 1 ;"su precio es de 1000 $" 1 ;"reduce coste prod. al 60%" 1 ;"producto acabado"; 1 ;"producira 2 unidades/mes" 1 ;"pide un sueldo de ";ind;" $ mes" 1 ;"pide un sueldo de ";com;" $ mes" 1 ;"para el pago de gastos mensuales"; 1 ;"no apruebas su propuesta" 1 ;"mercado bajo en existencias ": 1 ;"indemnizar con 1 mes/anyo" 1 ;"equivalente al 50% de su valor": 1 ;"equivalente al 50% de su valor" 1 ;"el gerente" 1 ;"VERIFICANDO" 1 ;"Un buen TECNICO INDUSTRIAL es dificil de encontrar; esa es la razon del porque cobra un buen sueldo."'" Este sueldo se va a ir incrementando anualmente entre un 1 ;"Un buen TECNICO COMERCIAL es dificil de encontrar; esa es la razon del porque cobra un buen sueldo."'" Este sueldo se va a ir incrementando anualmente entre un 1 ;"Tu tecnico industrial tiene en la actualidad un sueldo de"; 1 ;"Tu tecnico comercial tiene en la actualidad un sueldo de"; 1 ;"Tu situacion"'" es verdaderamente desesperada" 1 ;"Tu le estas pagando ";p(y);" $"; 1 ;"Tu le estas pagando ";o(y);" $"; 1 ;"Tu coste por unidad producida asciende a ";f(y);" Ptas." 1 ;"Tu capital te permite producir solo ";posfab;" unidades este mes" 1 ;"Tu capital en este momento asciende a ";a(y);" Ptas."; 1 ;"Tu TECNICO INDUSTRIAL ha reali- zado una mejora en los metodos de trabajo que te van a permitir(por esta vez) fabricar al 25 % de tu coste actual": 1 ;"Tu TECNICO COMERCIAL ha habiertoun canal de ventas que te va a permitir (solo por esta vez) vender tus productos a 5000 $": 1 ;"Tu TECNICO COMERCIAL a conseguido que puedas vender aun ";markt;" % mas sobre el precio oficial en esta operacion" 1 ;"Tienes solamente una opcion:"''"SUSPENSION DE PAGOS"'" vuelves a empezar de nuevo en las mismas condiciones que al inicio del juego. En los balances se indicara la cantidad adeudada mas la que percibes para reiniciar": 1 ;"Tienes capital para cubrirla." 1 ;"Tienes ";a(y);" Ptas. de capital"; 1 ;"Tiempo"; 1 ;"Tecnico INDUSTRIAL" 1 ;"Tecnico COMERCIAL" 1 ;"Stock producto acabado": 1 ;"Stock materia prima": 1 ;"Si abonas 1 POINT, cobraras del seguro el 75 % de su importe"''"Te interesa ? (s/n)": 1 ;"Se ha producido una grave averiaen una maquina manual, quedando inservible.": 1 ;"Se ha producido una grave averiaen una maquina automatica, solo podras aprovecharla trabajando manualmente.": 1 ;"Saldo actual ";a(y); 1 ;"REBOBINA EL CASETTE Y PULSA PLAY"; 1 ;"Que tecnico quieres despedir ?"; 1 ;"Pulsa ENTER"; 1 ;"Precio of. prod. acabado": 1 ;"Precio of. mat. prima": 1 ;"Para terminar con la huelga, deberas abonar la cantidad de 2000 $ o 1 POINT"'"Indica lo que prefieres"''" 1 ;"Pago Diciembre BANCO": 1 ;"Pagando 2 POINTS las puede recuperar."; 1 ;"PREFIERES ESPERAR"; 1 ;"POINTS": 1 ;"No tienes suficiente dinero ": 1 ;"NO TIENES TECNICOS EN PLANTILLA "; 1 ;"Maquinas MANUALES": 1 ;"Le interesa ? (s/n)": 1 ;"Las existencias de su almacen de producto acabado se han pasado de moda, por lo tanto van a ser eliminadas.": 1 ;"La indemnizacion por despido es de una paga por anyo trabajado"''"Sueldo ";p(y);" X ";j(y);" anyos = ";p(y)*j(y): 1 ;"La indemnizacion por despido es de una paga por anyo trabajado"''"Sueldo ";o(y);" X ";i(y);" anyos = ";o(y)*i(y): 1 ;"La Cia. de Seguros toma 1 POINT de tu haber para asi poderte abonar las perdidas habidas al precio mas bajo de mercado": 1 ;"Informatizar significa reducir los costes de produccion al 60%"; 1 ;"Indique cantidad a devolver": 1 ;"Indica cantidad a fabricar ": 1 ;"IRREGULARIDADES PAGO SEG. SOCIAL"; 1 ;"INSUFICIENTE"; 1 ;"INFORMATIZAR EL PROCESO"; 1 ;"INFORM." 1 ;"Has comprado materia prima en nomuy buenas condiciones y se ha hechado a perder": 1 ;"Ha cometido un error al efectuarla declaracion de la Renta; HACIENDA le reclama 4000 $": 1 ;"Ha cometido un error al efectuarla declaracion de la Renta; HACIENDA le devuelve 2000 $": 1 ;"Gastos mensuales": 1 ;"G- GRABAR JUEGO"; 1 ;"F- FIN DEL JUEGO" 1 ;"Estas seguro ? (s/n)": 1 ;"Empresario:"; 1 ;"Empresario: "; 1 ;"Embargo del ORDENADOR": 1 ;"Embargo de ";z;" u. prod. acabado": 1 ;"Embargo de ";z;" u. mat. prima": 1 ;"Embargo de ";z;" maqs. manuales": 1 ;"Embargo de ";z;" maqs. automat.": 1 ;"El precio oficial de materia prima, esta en este momento a ";pmp;" Ptas. unidad."; 1 ;"El precio de un Ordenador en alquiler es de 3 POINTS al formalizar el contrato y de 1 POINT cada final de anyo.": 1 ;"El precio de cada maquina manuales de ";pmaq;" Ptas."; 1 ;"El precio de cada POINT es de 1000 $": 1 ;"El Consejo de Administracion te propone tomes una de las siguientes DECISIONES:" 1 ;"El Banco del SPECTRUM, teniendo en cuenta las circunstancias queconcurren en su cliente"; 1 ;"El Banco del SPECTRUM tiene el placer de indicarle que, una vez comprobado su saldo, en el momento actual no tiene Ud. ninguna deuda con el mismo."; 1 ;"El Banco del SPECTRUM te ofrece la posibilidad de obtener un credito para la compra de una maquina por un importe de"; 1 ;"El Banco del SPECTRUM te ofrece la posibilidad de obtener un credito para la compra de un ordenador por un importe de"; 1 ;"EL TECNICO INDUSTRIAL SE DESPIDE"; 1 ;"EL TECNICO COMERCIAL SE DESPIDE "; 1 ;"Dispones en este momento de"; 1 ;"Dispones en este momento de ";b(y)+cm;" unidades de materia prima": 1 ;"Dispones de ";g(y);" valores ""POINT""": 1 ;"Dispones de ";d(y);" maqs. manuales" 1 ;"Dispones de ";c(y);" unidades de"; 1 ;"Deseas"; 1 ;"Deseas tener un ordenador..."; 1 ;"Denunciado: ";A$(y): 1 ;"DIRECTOR"; 1 ;"DESPEDIR UN TECNICO"; 1 ;"DEBES TOMAR UNA DECISION"; 1 ;"Cuantas unidades vas a comprar ?" 1 ;"Credito pendiente": 1 ;"Credito pendiente ";k(y); 1 ;"Costes de produccion": 1 ;"Con 2 POINTS las hubiera podido salvar": 1 ;"Como premio por haber conseguidomantener tu Empresa a flote durante un anyo, recibes una subvencion de"; 1 ;"Como premio por haber conseguidomantener tu Empresa a flote durante dos anyos, recibes una subvencion de"; 1 ;"Como la condiciones de Seguridade Higiene en tu Empresa son altamente satisfactorias, la Cia. de Seguros te obsequia con 1 POINT": 1 ;"Capacidad de produccion": 1 ;"Cantidad protestada ";imp: 1 ;"Cantidad devuelta "; 1 ;"CONTRATAR UN TECNICO IND."; 1 ;"CONTRATAR UN TECNICO COMERC."; 1 ;"COMPRAR 1 VALOR ""POINT"""; 1 ;"C.Sinclair"; 1 ;"Atentamente"; 1 ;"Al parecer no llevas las cuentasde la Seguridad Social del todo claras."'"Debes abonar una sancion cuyo importe asciende a 2500 $": 1 ;"Actualmente tienes una capacidadmaxima de produccion de"; 1 ;"Actualmente el precio oficial deventa es de ";ppa;" Ptas. unidad." 1 ;"Abono Diciembre POINTS": 1 ;"AUTOMATIZAR UNA MAQUINA"; 1 ;"AUTOM.": 1 ;"10000 $"; 1 ;"--------------------------------"; 1 ;"(2) 10000 $ contado, resto cred.(3) 3 Points ahora, 1 Point anyo" 1 ;"(1) su precio es de 20000 $"; 1 ;" unidades mensuales." 1 ;" para el pago anual del credito "; 1 ;" UN TECNICO INDUSTRIAL SE AGREGA"; 1 ;" UN TECNICO COMERCIAL SE AGREGA "; 1 ;" TIENES ORDENADOR": 1 ;" SUFICIENTE "; 1 ;" OBSEQUIO DE LA CIA. DE SEGUROS "; 1 ;" NO TIENES POINTS PARA PAGAR EL "; 1 ;" DESPIDO DEL TECNICO INDUSTRIAL "; 1 ;" DESPIDO DEL TECNICO COMERCIAL "; 1 ;" YA TIENES ORDENADOR "; 1 ;" SIGUIENTE JUGADOR "; 1 ;" OPERACION REALIZADA "; 1 ;" EMPIEZA LA PARTIDA ": 1 ;" Con 1 POINT cobrabas 7500 $ ": 1 ;" CONTRATO REALIZADO "; 1 ;" B A L A N C E "; 1 ;" ALQUILER ANUAL DEL ORDENADOR "; 1 ;" YA TIENES ORDENADOR "; 1 ;" MATERIA PRIMA DEFECTUOSA "; 1 ;" PRODUCTO PASADO DE MODA "; 1 ;" "''"CREDITO PENDIENTE ";k(y);" "'"CREDITO ESPECIAL ";s(y);" "'''" Pulsa ENTER": 1 ;" "'"Valor prod. acabado ";c(y)*1000 1 ;" "'"Valor ordenador ";(h(y)-r(y))*20000 1 ;" "'"Valor maquinaria ";(d(y)+e(y))*10000 1 ;" JORNADA DE HUELGA "; 1 ;" GESTION INDUSTRIAL "; 1 ;" GESTION COMERCIAL "; 1 ;" ": 1 0IDEALOGIC S.A. 1 08029 Barcelona 1 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000400040004000400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888_ 1 000000000000000000000000000000000 1 -len;n(y); 1 -len;m(y); 1 -len;l(y); 1 -len;k(y); 1 -len;f(y); 1 -len;d(y); 1 -len;c(y); 1 -len;b(y); 1 - VENDER"; 1 - FABRICAR"; 1 - DEVOLVER CREDITO"; 1 - DE MOMENTO ESPERAR"; 1 - COMPRAR MATERIA PRIMA"; 1 - COMPRAR MAQUINARIA"; 1 - COMPRAR AL CONTADO"; 1 - COMPRAR A CREDITO": 1 +EL GERENTE. JUEGO DE ESTRATEGIA EMPRESARIAL 1 )-k(y)-s(y): 1 )+(c(y)*1000 1 )+((h(y)-r(y))*20000 1 )+((d(y)+e(y))*10000 1 (p(y)*aum): 1 (o(y)*aum): 1 (a(y)/f(y)) 1 "indica cantidad a vender ";ven 1 "gerente": 1 "escriba cada uno su nombre",A$(y) 1 "cuantos empresarios participan ?";jug 1 "cm DIM/NEW" 1 "Indica cantidad a vender";ven 1 "Indica cantidad a fabricar ";fab 1 " DIM/NEW" 1 " MAXIMO 6 JUGADORES ": 1 pagar en POINTS": 1 pagar en $"''" 1 YA DISPONES DE ORDENADOR 1 PAGANDO AL CONTADO"; 1 NO VENDAS MAS DE LO QUE TIENES 1 NO PUEDES VENDER UNA CANTIDAD 1 INDUSTRIAL"; 1 DIMensionNEW "; 1 DE ALQUILER" 1 CON UN CREDITO BANCARIO"; 1 COMERCIAL" 1 %"''" Sus servicios te reportaran una reduccion del coste industrial del 1 %"''" Sus servicios te reportaran un aumento en los precios de venta entre el 1 negociado de protestos 1 QUE PENA QUE NO TENGAS STOCK 1 NO TIENES SUFICIENTES POINTS 1 Empresarial 1 B A L A N C E 1 JUZGADO num. 3,1416 1 NO TIENES TANTO DINERO 1 NO DEBES TANTO DINERO 1 ============================ Si el programa se interrumpe pulsa GO TO 1850 ============================ COPYRIGHT DIMensionNEW 1.984 Deposito Legal B-23543/84 ============================ RESERVADOS TODOS LOS DERECHOS Terminantemente prohibida la duplicacion y/o reproduccion de esta cinta y programa. ============================ Distribuidor exclusivo SUMINISTROS VALLPARADIS Pasteur, 3 TERRASSA (Barna). 1